PROC currency:
rem ************************************
rem **   Written by Barry J. Glover   **
rem **   Compuserve ID. 100025,2016   **
rem ** Copyright Barry J. Glover 1994 **
rem ************************************

	local temp$(96),price,rate,total,from%,to%,lang$(12),curr$(10),lang1$(12),rate1,unit1$(10),lang2$(12),rate2,unit2$(10),lang3$(12),rate3,unit3$(10),lang4$(12),rate4,unit4$(10),lang5$(12),rate5,unit5$(10),lang6$(12),rate6,unit6$(10),lang7$(12),rate7,unit7$(10)
	local lang8$(12),rate8,unit8$(10),home$(12),hunit$(10)
	local reply%,str1$(100),str2$(100)
	open "xchrates",a,home$,hunit$,to%,lang1$,rate1,unit1$,lang2$,rate2,unit2$,lang3$,rate3,unit3$,lang4$,rate4,unit4$,lang5$,rate5,unit5$,lang6$,rate6,unit6$,lang7$,rate7,unit7$,lang8$,rate8,unit8$
xx::
	home$=a.home$
	hunit$=a.hunit$
  lang1$=a.lang1$
  lang2$=a.lang2$
	lang3$=a.lang3$
	lang4$=a.lang4$
	lang5$=a.lang5$
	lang6$=a.lang6$
	lang7$=a.lang7$
	lang8$=a.lang8$
	to%=a.to%
	temp$=lang1$+","+lang2$+","+lang3$+","+lang4$+","+lang5$+","+lang6$+","+lang7$+","+lang8$
	
	dinit
	rem from%=a.from%
	price=0
	dinit
	rem
	dfloat price,"Enter Price ",0,999999999
	dchoice to%,"Convert From",temp$
rem 	dfloat price,"Enter Price ",0,999999999
	dtext ""," ",$200
	dbuttons "To Quit",27,"To Calculate",13
	reply%=dialog
	if reply%=0 :stop :endif
	a.to%=to%
	update
	if price=0 :goto xx:: :endif
	if to%=1 :rate=a.rate1 :lang$=a.lang1$ :curr$=a.unit1$ :endif
	if to%=2 :rate=a.rate2 :lang$=a.lang2$ :curr$=a.unit2$ :endif
	if to%=3 :rate=a.rate3 :lang$=a.lang3$ :curr$=a.unit3$ :endif
	if to%=4 :rate=a.rate4 :lang$=a.lang4$ :curr$=a.unit4$ :endif
	if to%=5 :rate=a.rate5 :lang$=a.lang5$ :curr$=a.unit5$ :endif
	if to%=6 :rate=a.rate6 :lang$=a.lang6$ :curr$=a.unit6$ :endif
	if to%=7 :rate=a.rate7 :lang$=a.lang7$ :curr$=a.unit7$ :endif
	if to%=8 :rate=a.rate8 :lang$=a.lang8$ :curr$=a.unit8$ :endif
	total=price/rate
	str1$=lang$+" Price = "+fix$(price,2,13)+" "+curr$
	str2$=home$+" Price = "+fix$(total,2,12)+" "+hunit$
	dinit
	dtext "",str1$,$202
	dtext "",str2$,2
	dialog
	cls
	goto xx::
ENDP